home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…ry 5: (Reseller Edition) / Apple Reference & Presentations Library 5.0 (Reseller Edition).iso / 3-Presentations / Apple Demos / Training / Macintosh SE⁄30 Training / Apple Macintosh SE⁄30 / Apple Macintosh SE_30 / background_71284.txt < prev    next >
Text File  |  1990-03-19  |  7KB  |  276 lines
  1. -- background: 71284 from stack: in
  2. -- bmap block id: 71503
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: supportBack
  6. ----- HyperTalk script -----
  7. --on closeBackground
  8. global mapLoc
  9. put 20 into mapLoc
  10. end closeBackground
  11. --—————————————————————————————————————————————————————————————————————
  12. on supportThree       -- animation for board and drive upgrade
  13.   wait 30
  14.   visual dissolve
  15.   go card "support3a" -- no case
  16.   runningPause
  17.   visual dissolve
  18.   go card "support3b" -- board out
  19.   visual dissolve
  20.   go card "support3c"
  21.   visual dissolve
  22.   go card "support3d"
  23.   runningPause
  24.   visual dissolve
  25.   go card "support3e" -- no board
  26.   runningPause
  27.   visual dissolve
  28.   go card "support3f" -- drive out
  29.   visual dissolve
  30.   go card "support3g"
  31.   visual dissolve
  32.   go card "support3h"
  33.   runningPause
  34.   visual dissolve
  35.   go card "support3i" -- no drive
  36.   runningPause
  37.   visual dissolve
  38.   go card "support3j" -- drive in
  39.   runningPause
  40.   visual dissolve
  41.   go card "support3k"
  42.   visual dissolve
  43.   go card "support3l"
  44.   visual dissolve
  45.   go card "support3m"
  46.   runningPause
  47.   visual dissolve
  48.   go card "support3n" -- board in
  49.   runningPause
  50.   visual dissolve
  51.   go card "support3o"
  52.   visual dissolve
  53.   go card "support3p"
  54.   visual dissolve
  55.   go card "support3q"
  56.   runningPause
  57.   visual dissolve
  58.   go card "support3r" -- final
  59. end supportThree
  60. --—————————————————————————————————————————————————————————————————————
  61. on supportFour       -- animation for board only upgrade
  62.   wait 30
  63.   visual dissolve
  64.   go card "support4a" -- no case
  65.   runningPause
  66.   visual dissolve
  67.   go card "support4b" -- board out
  68.   visual dissolve
  69.   go card "support4c"
  70.   visual dissolve
  71.   go card "support4d"
  72.   runningPause
  73.   visual dissolve
  74.   go card "support4e" -- no board
  75.   runningPause
  76.   visual dissolve
  77.   go card "support4f" -- new board
  78.   runningPause
  79.   visual dissolve
  80.   go card "support4g" -- board in
  81.   visual dissolve
  82.   go card "support4h"
  83.   visual dissolve
  84.   go card "support4i"
  85.   runningPause
  86.   visual dissolve
  87.   go card "support4j" -- drive in
  88. end supportFour
  89. --—————————————————————————————————————————————————————————————————————
  90. on supportFive        -- animation expansion card
  91.   wait 30
  92.   visual dissolve
  93.   go card "support5a" -- no case
  94.   runningPause
  95.   visual dissolve
  96.   go card "support5b" -- board appears
  97.   runningPause
  98.   visual dissolve
  99.   go card "support5c" -- board in
  100.   visual dissolve
  101.   go card "support5d"
  102.   visual dissolve
  103.   go card "support5e"
  104.   runningPause
  105.   visual dissolve
  106.   go card "support5f" -- drive out
  107. end supportFive
  108. --—————————————————————————————————————————————————————————————————————
  109.  
  110.  
  111.  
  112. -- part 1 (button)
  113. -- low flags: 00
  114. -- high flags: 2000
  115. -- rect: left=428 top=317 right=342 bottom=456
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 18611 / 18611
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: prev
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   if "support3" is in the name of this card then
  127.     visual scroll right
  128.     go card "support2"
  129.     exit mouseUp
  130.   end if
  131.  
  132.   if "support4" is in the name of this card then
  133.     visual scroll right
  134.     go card "support3"
  135.     exit mouseUp
  136.   end if
  137.  
  138.   if "support5" is in the name of this card then
  139.     visual scroll right
  140.     go card "support4"
  141.     exit mouseUp
  142.   end if
  143.  
  144.   visual scroll right
  145.   go prev
  146. end mouseUp
  147.  
  148.  
  149.  
  150. -- part 2 (button)
  151. -- low flags: 00
  152. -- high flags: 2000
  153. -- rect: left=455 top=317 right=342 bottom=483
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 18612 / 18612
  156. -- text alignment: 1
  157. -- font id: 0
  158. -- text size: 12
  159. -- style flags: 0
  160. -- line height: 16
  161. -- part name: next
  162. ----- HyperTalk script -----
  163. on mouseUp
  164.   if "support3" is in the name of this card then
  165.     visual scroll left
  166.     go card "support4"
  167.     exit mouseUp
  168.   end if
  169.  
  170.   if "support4" is in the name of this card then
  171.     visual scroll left
  172.     go card "support5"
  173.     exit mouseUp
  174.   end if
  175.  
  176.   if "support5" is in the name of this card then
  177.     visual scroll left
  178.     go card "support6"
  179.     exit mouseUp
  180.   end if
  181.  
  182.   visual scroll left
  183.   go next
  184. end mouseUp
  185.  
  186.  
  187.  
  188. -- part 3 (button)
  189. -- low flags: 00
  190. -- high flags: 2000
  191. -- rect: left=482 top=317 right=342 bottom=510
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 18613 / 18613
  194. -- text alignment: 1
  195. -- font id: 0
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: return
  200. ----- HyperTalk script -----
  201. on mouseUp
  202.   pop card into lastPush
  203.   if the short name of this stack is not in lastPush then
  204.     visual dissolve
  205.     go card "Map"
  206.   else
  207.     visual dissolve
  208.     go lastPush
  209.   end if
  210. end mouseUp
  211.  
  212.  
  213.  
  214. -- part 4 (field)
  215. -- low flags: 01
  216. -- high flags: 0000
  217. -- rect: left=128 top=23 right=45 bottom=508
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 0 / 0
  220. -- text alignment: 0
  221. -- font id: 21
  222. -- text size: 18
  223. -- style flags: 0
  224. -- line height: 20
  225. -- part name: cardTitle
  226.  
  227.  
  228. -- part 5 (field)
  229. -- low flags: 01
  230. -- high flags: 0000
  231. -- rect: left=128 top=70 right=313 bottom=509
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 0
  235. -- font id: 2
  236. -- text size: 12
  237. -- style flags: 0
  238. -- line height: 16
  239. -- part name: cardText
  240.  
  241.  
  242. -- part 12 (field)
  243. -- low flags: 01
  244. -- high flags: 0000
  245. -- rect: left=128 top=0 right=22 bottom=508
  246. -- title width / last selected line: 0
  247. -- icon id / first selected line: 0 / 0
  248. -- text alignment: 0
  249. -- font id: 21
  250. -- text size: 18
  251. -- style flags: 10240
  252. -- line height: 19
  253. -- part name: Title
  254.  
  255.  
  256. -- part 13 (button)
  257. -- low flags: 00
  258. -- high flags: A002
  259. -- rect: left=1 top=1 right=16 bottom=40
  260. -- title width / last selected line: 0
  261. -- icon id / first selected line: 0 / 0
  262. -- text alignment: 0
  263. -- font id: 3
  264. -- text size: 9
  265. -- style flags: 0
  266. -- line height: 12
  267. -- part name: Menu
  268. ----- HyperTalk script -----
  269. on mousedown
  270.   global checkedItem, clickTime
  271.   put 9 into checkedItem
  272.   mainMenu
  273.   put the ticks into clickTime
  274. end mousedown
  275.  
  276.